inherited frmCadProdutos: TfrmCadProdutos
  Left = 306
  Top = 137
  Width = 790
  Height = 460
  Caption = 'Cadastro de Produtos'
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited pgcCadastro: TcxPageControl
    Width = 774
    Height = 396
    ClientRectBottom = 391
    ClientRectRight = 769
    inherited tbsLista: TcxTabSheet
      inherited Grid: TcxGrid
        Width = 764
        Height = 346
        inherited GridDBBandedTableView2: TcxGridDBBandedTableView
          object GridDBBandedTableView2CODIGO_2: TcxGridDBBandedColumn
            DataBinding.FieldName = 'CODIGO_2'
            Position.BandIndex = 0
            Position.ColIndex = 13
            Position.RowIndex = 0
          end
          object GridDBBandedTableView2CODIGO: TcxGridDBBandedColumn
            DataBinding.FieldName = 'CODIGO'
            Width = 67
            Position.BandIndex = 0
            Position.ColIndex = 0
            Position.RowIndex = 0
          end
          object GridDBBandedTableView2NOME: TcxGridDBBandedColumn
            DataBinding.FieldName = 'NOME'
            Position.BandIndex = 0
            Position.ColIndex = 1
            Position.RowIndex = 0
          end
          object GridDBBandedTableView2GRUPO: TcxGridDBBandedColumn
            DataBinding.FieldName = 'GRUPO'
            Position.BandIndex = 0
            Position.ColIndex = 2
            Position.RowIndex = 0
          end
          object GridDBBandedTableView2UNIDADE: TcxGridDBBandedColumn
            DataBinding.FieldName = 'UNIDADE'
            Position.BandIndex = 0
            Position.ColIndex = 3
            Position.RowIndex = 0
          end
          object GridDBBandedTableView2VALOR: TcxGridDBBandedColumn
            DataBinding.FieldName = 'VALOR'
            Position.BandIndex = 0
            Position.ColIndex = 4
            Position.RowIndex = 0
          end
          object GridDBBandedTableView2SIGLA: TcxGridDBBandedColumn
            DataBinding.FieldName = 'SIGLA'
            Position.BandIndex = 0
            Position.ColIndex = 5
            Position.RowIndex = 0
          end
          object GridDBBandedTableView2NOME_GRUPO: TcxGridDBBandedColumn
            DataBinding.FieldName = 'NOME_GRUPO'
            Position.BandIndex = 0
            Position.ColIndex = 6
            Position.RowIndex = 0
          end
          object GridDBBandedTableView2ATIVO: TcxGridDBBandedColumn
            DataBinding.FieldName = 'ATIVO'
            Position.BandIndex = 0
            Position.ColIndex = 7
            Position.RowIndex = 0
          end
          object GridDBBandedTableView2TIPO: TcxGridDBBandedColumn
            DataBinding.FieldName = 'TIPO'
            Position.BandIndex = 0
            Position.ColIndex = 8
            Position.RowIndex = 0
          end
          object GridDBBandedTableView2EXPORTA_DAP: TcxGridDBBandedColumn
            DataBinding.FieldName = 'EXPORTA_DAP'
            Position.BandIndex = 0
            Position.ColIndex = 9
            Position.RowIndex = 0
          end
          object GridDBBandedTableView2INSUMOS: TcxGridDBBandedColumn
            DataBinding.FieldName = 'INSUMOS'
            Position.BandIndex = 0
            Position.ColIndex = 10
            Position.RowIndex = 0
          end
          object GridDBBandedTableView2QTDE: TcxGridDBBandedColumn
            DataBinding.FieldName = 'QTDE'
            Position.BandIndex = 0
            Position.ColIndex = 11
            Position.RowIndex = 0
          end
          object GridDBBandedTableView2TOTAL: TcxGridDBBandedColumn
            DataBinding.FieldName = 'TOTAL'
            Position.BandIndex = 0
            Position.ColIndex = 12
            Position.RowIndex = 0
          end
        end
      end
      inherited Panel1: TPanel
        Width = 764
      end
    end
    inherited tbsEdita: TcxTabSheet
      inherited Panel2: TPanel
        Width = 764
        Height = 363
        object pgcParametros: TcxPageControl
          Left = 1
          Top = 164
          Width = 762
          Height = 198
          ActivePage = tbsGerais
          Align = alClient
          TabOrder = 1
          ClientRectBottom = 193
          ClientRectLeft = 5
          ClientRectRight = 757
          ClientRectTop = 28
          object tbsGerais: TcxTabSheet
            Caption = 'Par'#226'metros Gerais'
            ImageIndex = 2
            object cxGroupBox1: TcxGroupBox
              Left = 14
              Top = 8
              Caption = 'Par'#226'metros'
              ParentShowHint = False
              ShowHint = True
              TabOrder = 0
              Height = 108
              Width = 123
              object cxDBCheckBox1: TcxDBCheckBox
                Left = 5
                Top = 36
                Hint = 
                  'Se produto constar'#225' de alguma forma (totalizando ou listando) na' +
                  ' exporta'#231#227'o da DAP.'
                Caption = 'Exporta DAP/DNF'
                DataBinding.DataField = 'EXPORTA_DAP'
                DataBinding.DataSource = dsRegistro
                ParentShowHint = False
                Properties.ValueChecked = 'S'
                Properties.ValueUnchecked = 'N'
                ShowHint = True
                TabOrder = 1
                Transparent = True
                Visible = False
                Width = 116
              end
              object cxDBCheckBox2: TcxDBCheckBox
                Left = 5
                Top = 18
                Caption = 'Ativo'
                DataBinding.DataField = 'ATIVO'
                DataBinding.DataSource = dsRegistro
                ParentShowHint = False
                Properties.ValueChecked = 'S'
                Properties.ValueUnchecked = 'N'
                ShowHint = True
                TabOrder = 0
                Transparent = True
                Width = 101
              end
              object cxDBCheckBox3: TcxDBCheckBox
                Left = 5
                Top = 55
                Hint = 
                  'Utilizado na exporta'#231#227'o do Arquivo DAPCAD.txt onde h'#225' a necessid' +
                  'ade de se gerar o totalizadores dos insumos (Agr'#237'colas,Bovinos e' +
                  ' Outros Animais)  movimentados.'
                Caption = 'Insumos'
                DataBinding.DataField = 'INSUMOS'
                DataBinding.DataSource = dsRegistro
                Properties.ValueChecked = 'S'
                Properties.ValueUnchecked = 'N'
                TabOrder = 2
                Transparent = True
                Visible = False
                Width = 101
              end
              object cxDBCheckBox5: TcxDBCheckBox
                Left = 5
                Top = 75
                Caption = 'Vacina'
                DataBinding.DataField = 'VACINA'
                DataBinding.DataSource = dsRegistro
                Properties.ValueChecked = 'S'
                Properties.ValueUnchecked = 'N'
                TabOrder = 3
                Transparent = True
                Visible = False
                Width = 89
              end
            end
            object GpTipoProduto: TcxDBRadioGroup
              Left = 141
              Top = 8
              Hint = 
                'Se caso o produto for definido como um insumo ent'#227'o ser'#225' neces'#225'r' +
                'io tamb'#233'm determinar o tipo deste para que o mesmo possa ser tot' +
                'alizado adequadamente no arquivo de exporta'#231#227'o DAPCAD.txt'
              Caption = 'Tipo de Insumos'
              DataBinding.DataField = 'TIPO_INSUMO'
              DataBinding.DataSource = dsRegistro
              ParentShowHint = False
              Properties.Columns = 3
              Properties.DefaultValue = 'A'
              Properties.Items = <
                item
                  Caption = 'Insumos Agropastoris'
                  Value = '1'
                end
                item
                  Caption = 'Gado em P'#233
                  Value = '2'
                end
                item
                  Caption = 'Ativo Fixo'
                  Value = '3'
                end
                item
                  Caption = #211'leo Diesel'
                  Value = '4'
                end
                item
                  Caption = 'Transporte'
                  Value = '5'
                end
                item
                  Caption = 'Comunica'#231#227'o'
                  Value = '6'
                end
                item
                  Caption = 'Outros'
                  Value = '7'
                end>
              ShowHint = True
              TabOrder = 1
              Visible = False
              Height = 89
              Width = 444
            end
          end
          object tbsPecuaria: TcxTabSheet
            Caption = 'Par'#226'metros Pecu'#225'ria'
            ImageIndex = 1
            object edOrdenacao: TcxDBSpinEdit
              Left = 287
              Top = 33
              DataBinding.DataField = 'ORDEM_DAP_PEC'
              DataBinding.DataSource = dsRegistro
              Properties.MaxValue = 8.000000000000000000
              Properties.MinValue = 1.000000000000000000
              TabOrder = 0
              Width = 79
            end
            object cxDBCheckBox4: TcxDBCheckBox
              Left = 373
              Top = 35
              Hint = 
                'Utilizado na exporta'#231#227'o do arquivo DAPOAN.txt (Dap. de Outros An' +
                'imais)'
              Caption = 'Outros Animais'
              DataBinding.DataField = 'OUTROS_ANIMAIS'
              DataBinding.DataSource = dsRegistro
              ParentShowHint = False
              Properties.ValueChecked = 'S'
              Properties.ValueUnchecked = 'N'
              ShowHint = True
              TabOrder = 1
              Transparent = True
              Width = 129
            end
            object cxGroupBox2: TcxGroupBox
              Left = 6
              Top = 15
              Caption = 'Rel. Extrato IAGRO'
              ParentShowHint = False
              ShowHint = True
              TabOrder = 2
              Height = 89
              Width = 271
              object cxDBSpinEdit1: TcxDBSpinEdit
                Left = 12
                Top = 40
                DataBinding.DataField = 'REL_IAGRO_INDICE'
                DataBinding.DataSource = dsRegistro
                Properties.MaxValue = 8.000000000000000000
                Properties.MinValue = 1.000000000000000000
                TabOrder = 0
                Width = 79
              end
              object cxLabel5: TcxLabel
                Left = 9
                Top = 24
                Caption = 'Indice'
                Transparent = True
              end
              object cxDBRadioGroup1: TcxDBRadioGroup
                Left = 110
                Top = 15
                Caption = 'Sexo'
                DataBinding.DataField = 'REL_IAGRO_MF'
                DataBinding.DataSource = dsRegistro
                Properties.Columns = 2
                Properties.DefaultValue = 'A'
                Properties.Items = <
                  item
                    Caption = 'Macho'
                    Value = 'M'
                  end
                  item
                    Caption = 'F'#234'mea'
                    Value = 'F'
                  end>
                Style.BorderStyle = ebsFlat
                Style.TransparentBorder = True
                TabOrder = 2
                Height = 49
                Width = 147
              end
            end
            object cxLabel4: TcxLabel
              Left = 285
              Top = 16
              Caption = 'Ordem DAP'
              Transparent = True
            end
          end
          object tbsAgricola: TcxTabSheet
            Caption = 'Par'#226'metros Agr'#237'cola'
            ImageIndex = 0
          end
        end
        object Panel3: TPanel
          Left = 1
          Top = 1
          Width = 762
          Height = 163
          Align = alTop
          BevelOuter = bvNone
          TabOrder = 0
          object cxDBCalcEdit1: TcxDBCalcEdit
            Left = 8
            Top = 72
            DataBinding.DataField = 'QTDE'
            DataBinding.DataSource = dsRegistro
            Style.LookAndFeel.Kind = lfOffice11
            Style.ButtonStyle = btsFlat
            StyleDisabled.LookAndFeel.Kind = lfOffice11
            StyleFocused.LookAndFeel.Kind = lfOffice11
            StyleHot.LookAndFeel.Kind = lfOffice11
            TabOrder = 3
            Width = 120
          end
          object btnGrupo: TcxButtonEdit
            Left = 663
            Top = 71
            Properties.Buttons = <
              item
                Caption = 'F9'
                Default = True
                Kind = bkText
              end>
            Properties.ViewStyle = vsButtonsOnly
            TabOrder = 8
            Text = 'btnLogradouro'
            OnClick = btnGrupoClick
            Width = 25
          end
          object cbGrupo: TcxDBLookupComboBox
            Left = 377
            Top = 71
            DataBinding.DataField = 'GRUPO'
            DataBinding.DataSource = dsRegistro
            Properties.CharCase = ecUpperCase
            Properties.KeyFieldNames = 'CODIGO'
            Properties.ListColumns = <
              item
                FieldName = 'NOME'
              end>
            Properties.ListSource = dsGrupo
            TabOrder = 5
            Width = 287
          end
          object cxLabel11: TcxLabel
            Left = 377
            Top = 55
            Caption = 'Grupo'
            Transparent = True
          end
          object cbUnidade: TcxDBLookupComboBox
            Left = 527
            Top = 100
            DataBinding.DataField = 'UNIDADE'
            DataBinding.DataSource = dsRegistro
            Properties.CharCase = ecUpperCase
            Properties.KeyFieldNames = 'CODIGO'
            Properties.ListColumns = <
              item
                FieldName = 'NOME'
              end>
            Properties.ListSource = dsUnidade
            TabOrder = 6
            Visible = False
            Width = 90
          end
          object btnUnidade: TcxButtonEdit
            Left = 613
            Top = 100
            Properties.Buttons = <
              item
                Caption = 'F9'
                Default = True
                Kind = bkText
              end>
            Properties.ViewStyle = vsButtonsOnly
            TabOrder = 10
            Text = 'btnLogradouro'
            Visible = False
            OnClick = btnUnidadeClick
            Width = 25
          end
          object cxLabel9: TcxLabel
            Left = 527
            Top = 84
            Caption = 'Unidade'
            Transparent = True
            Visible = False
          end
          object edtCodigo: TcxDBTextEdit
            Left = 15
            Top = 152
            DataBinding.DataField = 'CODIGO'
            DataBinding.DataSource = dsRegistro
            Properties.ReadOnly = True
            Style.Color = clInactiveBorder
            TabOrder = 0
            Visible = False
            Width = 65
          end
          object cxLabel1: TcxLabel
            Left = 15
            Top = 135
            Caption = 'C'#243'digo'
            Transparent = True
            Visible = False
          end
          object cxDBTextEdit3: TcxDBTextEdit
            Left = 121
            Top = 32
            DataBinding.DataField = 'NOME'
            DataBinding.DataSource = dsRegistro
            Properties.CharCase = ecUpperCase
            TabOrder = 2
            Width = 584
          end
          object cxLabel2: TcxLabel
            Left = 119
            Top = 15
            Caption = 'Nome'
            Transparent = True
          end
          object cxLabel3: TcxLabel
            Left = 8
            Top = 56
            Caption = 'Qtde'
            Transparent = True
          end
          object rdTipoProduto: TcxDBRadioGroup
            Left = 440
            Top = 130
            Caption = 'Tipo de Produto'
            DataBinding.DataField = 'TIPO'
            DataBinding.DataSource = dsRegistro
            Properties.Columns = 4
            Properties.DefaultValue = 'A'
            Properties.Items = <
              item
                Caption = 'Agr'#237'cola'
                Value = 'A'
              end
              item
                Caption = 'Pecu'#225'ria'
                Value = 'P'
              end
              item
                Caption = 'Outros'
                Value = 'O'
              end>
            TabOrder = 7
            Visible = False
            Height = 49
            Width = 313
          end
          object cxDBTextEdit1: TcxDBTextEdit
            Left = 7
            Top = 32
            DataBinding.DataField = 'CODIGO_2'
            DataBinding.DataSource = dsRegistro
            Properties.CharCase = ecUpperCase
            TabOrder = 1
            Width = 110
          end
          object cxLabel6: TcxLabel
            Left = 7
            Top = 15
            Caption = 'C'#243'digo'
            Transparent = True
          end
          object cxLabel7: TcxLabel
            Left = 130
            Top = 56
            Caption = 'Valor'
            Transparent = True
          end
          object cxDBCalcEdit2: TcxDBCalcEdit
            Left = 130
            Top = 72
            DataBinding.DataField = 'VALOR'
            DataBinding.DataSource = dsRegistro
            Style.LookAndFeel.Kind = lfOffice11
            Style.ButtonStyle = btsFlat
            StyleDisabled.LookAndFeel.Kind = lfOffice11
            StyleFocused.LookAndFeel.Kind = lfOffice11
            StyleHot.LookAndFeel.Kind = lfOffice11
            TabOrder = 4
            Width = 120
          end
          object cxDBCalcEdit3: TcxDBCalcEdit
            Left = 254
            Top = 71
            TabStop = False
            DataBinding.DataField = 'TOTAL'
            DataBinding.DataSource = dsRegistro
            Properties.ReadOnly = True
            Style.Color = clScrollBar
            Style.LookAndFeel.Kind = lfOffice11
            Style.ButtonStyle = btsFlat
            StyleDisabled.LookAndFeel.Kind = lfOffice11
            StyleFocused.LookAndFeel.Kind = lfOffice11
            StyleHot.LookAndFeel.Kind = lfOffice11
            TabOrder = 17
            Width = 120
          end
          object cxLabel8: TcxLabel
            Left = 254
            Top = 55
            Caption = 'Total'
            Transparent = True
          end
        end
      end
    end
  end
  inherited dtEdit: TIBDataSet
    DeleteSQL.Strings = (
      'delete from produtos'
      'where'
      '  CODIGO = :OLD_CODIGO')
    InsertSQL.Strings = (
      'insert into produtos'
      
        '  (ATIVO, CODIGO, CODIGO_2, EXPORTA_DAP, GRUPO, INSUMOS, NOME, O' +
        'RDEM_DAP_PEC, '
      
        '   OUTROS_ANIMAIS, QTDE, REL_IAGRO_INDICE, REL_IAGRO_MF, TIPO, T' +
        'IPO_INSUMO, '
      '   UNIDADE, VACINA, VALOR)'
      'values'
      
        '  (:ATIVO, :CODIGO, :CODIGO_2, :EXPORTA_DAP, :GRUPO, :INSUMOS, :' +
        'NOME, :ORDEM_DAP_PEC, '
      
        '   :OUTROS_ANIMAIS, :QTDE, :REL_IAGRO_INDICE, :REL_IAGRO_MF, :TI' +
        'PO, :TIPO_INSUMO, '
      '   :UNIDADE, :VACINA, :VALOR)')
    RefreshSQL.Strings = (
      'Select Produtos.*, (produtos.QTDE*Produtos.VALOR) TOTAL '
      'from produtos '
      'where'
      '  CODIGO = :CODIGO')
    SelectSQL.Strings = (
      'select P.*, (P.QTDE*P.VALOR)  TOTAL from produtos p'
      'where p.codigo = :codigo')
    ModifySQL.Strings = (
      'update produtos'
      'set'
      '  ATIVO = :ATIVO,'
      '  CODIGO = :CODIGO,'
      '  CODIGO_2 = :CODIGO_2,'
      '  EXPORTA_DAP = :EXPORTA_DAP,'
      '  GRUPO = :GRUPO,'
      '  INSUMOS = :INSUMOS,'
      '  NOME = :NOME,'
      '  ORDEM_DAP_PEC = :ORDEM_DAP_PEC,'
      '  OUTROS_ANIMAIS = :OUTROS_ANIMAIS,'
      '  QTDE = :QTDE,'
      '  REL_IAGRO_INDICE = :REL_IAGRO_INDICE,'
      '  REL_IAGRO_MF = :REL_IAGRO_MF,'
      '  TIPO = :TIPO,'
      '  TIPO_INSUMO = :TIPO_INSUMO,'
      '  UNIDADE = :UNIDADE,'
      '  VACINA = :VACINA,'
      '  VALOR = :VALOR'
      'where'
      '  CODIGO = :OLD_CODIGO')
    GeneratorField.Field = 'CODIGO'
    GeneratorField.Generator = 'GEN_PRODUTOS_ID'
    GeneratorField.ApplyEvent = gamOnPost
    object dtEditCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Origin = '"PRODUTOS"."CODIGO"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object dtEditNOME: TIBStringField
      FieldName = 'NOME'
      Origin = '"PRODUTOS"."NOME"'
      Size = 50
    end
    object dtEditGRUPO: TIntegerField
      FieldName = 'GRUPO'
      Origin = '"PRODUTOS"."GRUPO"'
    end
    object dtEditUNIDADE: TIntegerField
      FieldName = 'UNIDADE'
      Origin = '"PRODUTOS"."UNIDADE"'
    end
    object dtEditVALOR: TFloatField
      FieldName = 'VALOR'
      Origin = '"PRODUTOS"."VALOR"'
      DisplayFormat = '###,##0.00'
    end
    object dtEditATIVO: TIBStringField
      FieldName = 'ATIVO'
      Origin = '"PRODUTOS"."ATIVO"'
      FixedChar = True
      Size = 1
    end
    object dtEditTIPO: TIBStringField
      FieldName = 'TIPO'
      Origin = '"PRODUTOS"."TIPO"'
      OnChange = dtEditTIPOChange
      FixedChar = True
      Size = 1
    end
    object dtEditEXPORTA_DAP: TIBStringField
      FieldName = 'EXPORTA_DAP'
      Origin = '"PRODUTOS"."EXPORTA_DAP"'
      FixedChar = True
      Size = 1
    end
    object dtEditINSUMOS: TIBStringField
      FieldName = 'INSUMOS'
      Origin = '"PRODUTOS"."INSUMOS"'
      OnChange = dtEditINSUMOSChange
      FixedChar = True
      Size = 1
    end
    object dtEditTIPO_INSUMO: TIBStringField
      FieldName = 'TIPO_INSUMO'
      Origin = '"PRODUTOS"."TIPO_INSUMO"'
      FixedChar = True
      Size = 1
    end
    object dtEditORDEM_DAP_PEC: TIntegerField
      FieldName = 'ORDEM_DAP_PEC'
      Origin = '"PRODUTOS"."ORDEM_DAP_PEC"'
    end
    object dtEditOUTROS_ANIMAIS: TIBStringField
      FieldName = 'OUTROS_ANIMAIS'
      Origin = '"PRODUTOS"."OUTROS_ANIMAIS"'
      FixedChar = True
      Size = 1
    end
    object dtEditREL_IAGRO_INDICE: TSmallintField
      FieldName = 'REL_IAGRO_INDICE'
      Origin = '"PRODUTOS"."REL_IAGRO_INDICE"'
    end
    object dtEditREL_IAGRO_MF: TIBStringField
      FieldName = 'REL_IAGRO_MF'
      Origin = '"PRODUTOS"."REL_IAGRO_MF"'
      FixedChar = True
      Size = 1
    end
    object dtEditVACINA: TIBStringField
      FieldName = 'VACINA'
      Origin = '"PRODUTOS"."VACINA"'
      FixedChar = True
      Size = 1
    end
    object dtEditCODIGO_2: TIBStringField
      FieldName = 'CODIGO_2'
      Origin = '"PRODUTOS"."CODIGO_2"'
      Size = 30
    end
    object dtEditQTDE: TIBBCDField
      DisplayLabel = 'Qtde'
      FieldName = 'QTDE'
      Origin = '"PRODUTOS"."QTDE"'
      DisplayFormat = '###,##0.00'
      Precision = 18
      Size = 4
    end
    object dtEditTOTAL: TFloatField
      FieldName = 'TOTAL'
      ProviderFlags = []
    end
  end
  inherited dtList: TIBQuery
    SQL.Strings = (
      
        'select  p.*, (P.QTDE*P.VALOR) TOTAL , u.sigla, g.nome nome_grupo' +
        ' from produtos p'
      'left join grupo_produto g on (g.codigo = p.grupo)'
      'left join unidades u on (u.codigo = p.unidade)')
    object dtListCODIGO: TIntegerField
      DisplayLabel = 'C'#243'digo'
      FieldName = 'CODIGO'
      Origin = '"PRODUTOS"."CODIGO"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object dtListNOME: TIBStringField
      DisplayLabel = 'Nome'
      FieldName = 'NOME'
      Origin = '"PRODUTOS"."NOME"'
      Size = 50
    end
    object dtListGRUPO: TIntegerField
      DisplayLabel = 'C'#243'd. Grupo'
      FieldName = 'GRUPO'
      Origin = '"PRODUTOS"."GRUPO"'
    end
    object dtListUNIDADE: TIntegerField
      DisplayLabel = 'C'#243'd. Unidade'
      FieldName = 'UNIDADE'
      Origin = '"PRODUTOS"."UNIDADE"'
    end
    object dtListVALOR: TFloatField
      DisplayLabel = 'Valor'
      FieldName = 'VALOR'
      Origin = '"PRODUTOS"."VALOR"'
      DisplayFormat = '###,##0.00'
    end
    object dtListSIGLA: TIBStringField
      DisplayLabel = 'Unidade'
      FieldName = 'SIGLA'
      Origin = '"UNIDADES"."SIGLA"'
      Size = 4
    end
    object dtListNOME_GRUPO: TIBStringField
      DisplayLabel = 'Grupo'
      FieldName = 'NOME_GRUPO'
      Origin = '"GRUPO_PRODUTO"."NOME"'
      Size = 50
    end
    object dtListATIVO: TIBStringField
      DisplayLabel = 'Ativo'
      FieldName = 'ATIVO'
      Origin = '"PRODUTOS"."ATIVO"'
      FixedChar = True
      Size = 1
    end
    object dtListTIPO: TIBStringField
      DisplayLabel = 'Tipo Produto'
      FieldName = 'TIPO'
      Origin = '"PRODUTOS"."TIPO"'
      FixedChar = True
      Size = 1
    end
    object dtListEXPORTA_DAP: TIBStringField
      DisplayLabel = 'Exporta Dap'
      FieldName = 'EXPORTA_DAP'
      Origin = '"PRODUTOS"."EXPORTA_DAP"'
      FixedChar = True
      Size = 1
    end
    object dtListINSUMOS: TIBStringField
      DisplayLabel = 'Insumos'
      FieldName = 'INSUMOS'
      Origin = '"PRODUTOS"."INSUMOS"'
      FixedChar = True
      Size = 1
    end
    object dtListTIPO_INSUMO: TIBStringField
      FieldName = 'TIPO_INSUMO'
      Origin = '"PRODUTOS"."TIPO_INSUMO"'
      FixedChar = True
      Size = 1
    end
    object dtListORDEM_DAP_PEC: TIntegerField
      FieldName = 'ORDEM_DAP_PEC'
      Origin = '"PRODUTOS"."ORDEM_DAP_PEC"'
    end
    object dtListOUTROS_ANIMAIS: TIBStringField
      FieldName = 'OUTROS_ANIMAIS'
      Origin = '"PRODUTOS"."OUTROS_ANIMAIS"'
      FixedChar = True
      Size = 1
    end
    object dtListREL_IAGRO_INDICE: TSmallintField
      FieldName = 'REL_IAGRO_INDICE'
      Origin = '"PRODUTOS"."REL_IAGRO_INDICE"'
    end
    object dtListREL_IAGRO_MF: TIBStringField
      FieldName = 'REL_IAGRO_MF'
      Origin = '"PRODUTOS"."REL_IAGRO_MF"'
      FixedChar = True
      Size = 1
    end
    object dtListVACINA: TIBStringField
      FieldName = 'VACINA'
      Origin = '"PRODUTOS"."VACINA"'
      FixedChar = True
      Size = 1
    end
    object dtListCODIGO_2: TIBStringField
      DisplayLabel = 'C'#243'digo'
      FieldName = 'CODIGO_2'
      Origin = '"PRODUTOS"."CODIGO_2"'
      Size = 30
    end
    object dtListQTDE: TIBBCDField
      DisplayLabel = 'Qtde'
      FieldName = 'QTDE'
      Origin = '"PRODUTOS"."QTDE"'
      DisplayFormat = '###,##0.00'
      Precision = 18
      Size = 4
    end
    object dtListTOTAL: TFloatField
      DisplayLabel = 'Total'
      FieldName = 'TOTAL'
      ProviderFlags = []
      DisplayFormat = '###,##0.00'
    end
  end
  inherited dxBarManager: TdxBarManager
    Categories.ItemsVisibles = (
      2
      2)
    Categories.Visibles = (
      True
      True)
    DockControlHeights = (
      0
      0
      0
      26)
  end
  inherited ActionList1: TActionList
    inherited ActCadLookup: TAction
      OnExecute = ActCadLookupExecute
    end
  end
  inherited cxImageList1: TcxImageList
    FormatVersion = 1
  end
  inherited ACBrEnterTab1: TACBrEnterTab
    Left = 592
    Top = 4
  end
  inherited cxPropertiesStore: TcxPropertiesStore
    Components = <
      item
        Component = GridDBBandedTableView1
        Properties.Strings = (
          'BackgroundBitmaps'
          'Bands'
          'DataController'
          'DateTimeHandling'
          'DragMode'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FilterBox'
          'Filtering'
          'FilterRow'
          'Name'
          'NavigatorButtons'
          'NewItemRow'
          'OptionsBehavior'
          'OptionsCustomize'
          'OptionsData'
          'OptionsSelection'
          'OptionsView'
          'PopupMenu'
          'Preview'
          'Styles'
          'Synchronization'
          'Tag')
      end
      item
        Component = GridDBBandedTableView2
        Properties.Strings = (
          'BackgroundBitmaps'
          'Bands'
          'DataController'
          'DateTimeHandling'
          'DragMode'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FilterBox'
          'Filtering'
          'FilterRow'
          'Name'
          'NavigatorButtons'
          'NewItemRow'
          'OptionsBehavior'
          'OptionsCustomize'
          'OptionsData'
          'OptionsSelection'
          'OptionsView'
          'PopupMenu'
          'Preview'
          'Styles'
          'Synchronization'
          'Tag')
      end
      item
        Component = GridDBBandedTableView2ATIVO
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Position'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end
      item
        Component = GridDBBandedTableView2CODIGO
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Position'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end
      item
        Component = GridDBBandedTableView2CODIGO_2
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Position'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end
      item
        Component = GridDBBandedTableView2EXPORTA_DAP
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Position'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end
      item
        Component = GridDBBandedTableView2GRUPO
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Position'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end
      item
        Component = GridDBBandedTableView2INSUMOS
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Position'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end
      item
        Component = GridDBBandedTableView2NOME
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Position'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end
      item
        Component = GridDBBandedTableView2NOME_GRUPO
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Position'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end
      item
        Component = GridDBBandedTableView2QTDE
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Position'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end
      item
        Component = GridDBBandedTableView2SIGLA
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Position'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end
      item
        Component = GridDBBandedTableView2TIPO
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Position'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end
      item
        Component = GridDBBandedTableView2TOTAL
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Position'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end
      item
        Component = GridDBBandedTableView2UNIDADE
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Position'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end
      item
        Component = GridDBBandedTableView2VALOR
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Position'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end>
  end
  inherited cxIntl1: TcxIntl
    Left = 560
    Top = 4
  end
  inherited lstParametro1: TIBQuery
    Left = 592
    Top = 346
  end
  inherited qryAux: TIBQuery
    Left = 623
    Top = 347
  end
  object lstGrupos: TIBQuery
    Database = dmPrincipal.Database
    Transaction = dmPrincipal.Transaction
    SQL.Strings = (
      'select * from grupo_produto g'
      
        'where 0 = (select count(*) from grupo_produto g2 where g2.codigo' +
        '_pai = g.codigo)')
    Left = 592
    Top = 376
    object lstGruposCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Origin = '"GRUPO_PRODUTO"."CODIGO"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object lstGruposNOME: TIBStringField
      FieldName = 'NOME'
      Origin = '"GRUPO_PRODUTO"."NOME"'
      Size = 50
    end
    object lstGruposCODIGO_PAI: TIntegerField
      FieldName = 'CODIGO_PAI'
      Origin = '"GRUPO_PRODUTO"."CODIGO_PAI"'
    end
  end
  object lstUnidade: TIBQuery
    Database = dmPrincipal.Database
    Transaction = dmPrincipal.Transaction
    SQL.Strings = (
      'select * from unidades u')
    Left = 624
    Top = 376
    object lstUnidadeCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Origin = '"UNIDADES"."CODIGO"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object lstUnidadeNOME: TIBStringField
      FieldName = 'NOME'
      Origin = '"UNIDADES"."NOME"'
      Size = 50
    end
    object lstUnidadeSIGLA: TIBStringField
      FieldName = 'SIGLA'
      Origin = '"UNIDADES"."SIGLA"'
      Size = 4
    end
  end
  object dsUnidade: TDataSource
    DataSet = lstUnidade
    Left = 624
    Top = 408
  end
  object dsGrupo: TDataSource
    DataSet = lstGrupos
    Left = 592
    Top = 408
  end
end
